home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu005.dms / pu005.adf / Logging / Contest / Print.It (.txt) < prev    next >
AmigaBASIC Source Code  |  1988-01-19  |  3KB  |  83 lines
  1. '###########################################################################
  2. '#                                                                         #
  3. '#           CONTEST DUPE AND WPX PROGRAM PRINT-OUT PROGRAM                #
  4. '#                               by                                        #
  5. '#                    Bj. Madsen  -+-  VE5FX                               #
  6. '#                  Dec. 1986  (Rev. July 1987)                            #
  7. '#                                                                         #
  8. '###########################################################################
  9. '
  10. '  This program will read a previously-created file of callsigns from disk to
  11. '  memory.  It will then make a ten-column print-out, printing 500 calls per
  12. '  page.
  13. '
  14. CLEAR ,7000
  15. CLEAR ,50000
  16. DIM CS$(3000) : N = 1
  17. '-------------------------------------- title display on screen
  18.   LINE (0,0)-(640,5),3,bf
  19.   LINE (0,0)-(10,200),3,bf
  20.   LINE (607,0)-(617,200),3,bf
  21.   LINE (0,181)-(617,186),3,bf
  22.   LINE (0,30)-(640,35),3,b
  23.   PAINT (20,10),2,3
  24.   PAINT (20,33),1,3
  25.   COLOR 3,2
  26.   LOCATE 3,25:PRINT " V E 5 F X  -  Print-Out Program "
  27.   COLOR 1,0
  28.   LOCATE 13,20:PRINT"What file do you want to read from";:INPUT INFILE$ :COLOR 1,0
  29.   
  30. LOADFILE:
  31.   OPEN "I",#1,INFILE$
  32.     WHILE NOT EOF(1)
  33.       INPUT #1,CS$(N)
  34.       LET N = N + 1
  35.     WEND
  36.  
  37.   LET N = N - 1
  38. CLOSE : COLOR 1
  39. '
  40. LOCATE 13,20:PRINT "There are ";N;" calls on file.               "
  41. COLOR 3
  42. LOCATE 15,15:PRINT "Make sure printer is set up and ready to go........"
  43. LOCATE 17,17:PRINT "...... and press <ENTER> to begin printing";:INPUT qq$
  44. COLOR 3:PRINT TAB(3) STRING$(73,"_");:COLOR 1,0
  45. LOCATE 20,15:PRINT"What is the date (comma OK)";:LINE INPUT DA$
  46. '        
  47. PRINTIT:
  48.   OPEN "PRT:" FOR OUTPUT AS #2: PRINT #2,CHR$(27)"[""4""w"  
  49.   PRINT #2,TAB(10) STRING$(120,"%")
  50.   PRINT #2,TAB(15) "  LISTING FOR VE5FX ........ ";DA$
  51.   PRINT #2,TAB(15) "        Filespec: ";INFILE$
  52.   PRINT #2,TAB(10) STRING$(120,"%")
  53.   PRINT #2," "
  54. '------------------------------------------------------- start printing
  55.   LET Q=1 : LET I=50 : LET X=1 : LET F=1        'set start point & interval
  56.  
  57.  PRINT.A.LINE:   
  58.           PRINT #2,TAB(10)  CS$(Q);:        PRINT #2,TAB(23) CS$(Q+I);
  59.           PRINT #2,TAB(36)  CS$(Q+(I*2));:  PRINT #2,TAB(49) CS$(Q+(I*3));
  60.           PRINT #2,TAB(62)  CS$(Q+(I*4));:  PRINT #2,TAB(75) CS$(Q+(I*5));
  61.           PRINT #2,TAB(88)  CS$(Q+(I*6));:  PRINT #2,TAB(101) CS$(Q+(I*7));
  62.           PRINT #2,TAB(114) CS$(Q+(I*8));:  PRINT #2,TAB(127) CS$(Q+(I*9))
  63.         IF CS$(Q+(I*9)) = "" THEN F=0
  64.         IF Q/50 = INT(Q/50) THEN GOTO NEXT.PAGE
  65.         LET Q = Q + 1
  66.     GOTO PRINT.A.LINE 
  67.     
  68.  NEXT.PAGE:
  69.     IF F=0 THEN THATS.ALL
  70.     FOR S=1 TO 10:PRINT#2," ":NEXT S
  71.      X=X+1  : Q = Q + 451
  72.      PRINT#2,TAB(120)"... page ";X
  73.     FOR S=1 TO 5:PRINT#2," ":NEXT S
  74.    GOTO PRINT.A.LINE
  75.   
  76.  THATS.ALL:
  77.    PRINT#2," ":PRINT#2," "
  78.    PRINT#2,TAB(10) STRING$(90,">"); "   Total calls on file = ";N
  79.   END
  80. ENDIT:
  81.   
  82.  
  83.